From: Michael Albinus <michael.albinus@gmx.de>
Date: Tue, 25 Aug 2009 08:49:24 +0000 (+0000)
Subject: * vc-arch.el (vc-arch-diff): Let-bind `process-file-side-effects' with nil.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~10907
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=f1257d6313de934a05d4843121729e7e7360844c;p=emacs.git

* vc-arch.el (vc-arch-diff): Let-bind `process-file-side-effects' with nil.
---

diff --git a/lisp/vc-arch.el b/lisp/vc-arch.el
index f9ead184731..68146bcf1f7 100644
--- a/lisp/vc-arch.el
+++ b/lisp/vc-arch.el
@@ -456,7 +456,8 @@ CALLBACK expects (ENTRIES &optional MORE-TO-COME); see
         (setq newvers nil))
     (if newvers
         (error "Diffing specific revisions not implemented")
-      (let* ((async (not vc-disable-async-diff))
+      (let* (process-file-side-effects
+	     (async (not vc-disable-async-diff))
              ;; Run the command from the root dir.
              (default-directory (vc-arch-root file))
              (status